home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / bell.dir / 00119_Script_Audio Meter obj < prev    next >
Text File  |  1997-05-26  |  1KB  |  39 lines
  1. --o Instantiated as gAudioMeterObj
  2.  
  3. property pQTsprite
  4. property pOperateCursorPropertyList, pOperateCursorList
  5.  
  6. global gUtilityObj, gScoreEventObj
  7. ----------------------------------------------------<<ò>>
  8. on mInit me
  9.   
  10.   sound stop 1
  11.   set pQTsprite = 23
  12.   set pOperateCursorPropertyList = [23:#Operate]
  13.   set pOperateCursorList = [23]
  14.   return me
  15.   
  16. end mInit
  17. ----------------------------------------------------<<ò>>
  18. on mActivate me
  19.   
  20.   mResetQT( gUtilityObj,23 )
  21.   mSetCursors(gUtilityObj, pOperateCursorPropertyList)
  22.   
  23. end mActivate
  24. ----------------------------------------------------<<ò>>
  25. on mClose me
  26.   
  27.   mUnsetCursorList(gUtilityObj, pOperateCursorList)
  28.   
  29. end mClose
  30. ----------------------------------------------------<<ò>>
  31. on mAudioMeterClickOutEvent me
  32.   
  33.   mStopMovAndPullOut (gScoreEventObj, pQTsprite)
  34.   mClose(me)
  35.   
  36. end mAudioMeterClickOutEvent
  37. ----------------------------------------------------<<ò>>
  38. ----------------------------------------------------<<ò>>
  39. ----------------------------------------------------<<ò>>